library("checkmate")
library("countrycode")
library("conflicted")
library("data.table")
library("ggokabeito")
library("ggridges")
library("haven")
library("here")
library("marginaleffects")
library("modelsummary")
library("readxl")
library("tinytable")
library("tidyverse")
library("future")

options(scipen=10000)

the <- function(...) theme_bw() + theme(
    panel.grid.minor = element_blank()#,
    # text = element_text(family = "minion")
)
theme_set(the())
discrete_palette <- c(
    "#88CCEE", # cyan   2
    "#882255", # wine   8
    "#CC6677", # rose   7
    "#332288", # indigo 1
    "#DDCC77", # sand   6
    "#117733", # green  4
    "#44AA99", # teal   3
    "#999933", # olive  5
    "#AA4499", # purple 9
    "#DDDDDD") # grey   10)
scale_colour_discrete <- scale_colour_okabe_ito
scale_fill_discrete <- scale_fill_okabe_ito

# plan(multisession, workers = availableCores())

options(bspm.disable = TRUE)

set.seed(90210)

conflict_prefer("select", "dplyr")
conflict_prefer("filter", "dplyr")
conflict_prefer("first", "dplyr")
